home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / deal2.zip / DEAL1.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-11-11  |  5KB  |  123 lines
  1. Form1
  2. Form1
  3. Form1
  4. picture1
  5. picture1
  6. Command1
  7. Label1
  8. QBe patient the first time.  Subsequent "Deals" go much faster.  I don't know why.
  9. picture1
  10. picture1
  11. picture1
  12. deck1
  13. value
  14. deal(
  15. Form_Click
  16. spades1_Click
  17. hcard.
  18. picture1
  19. picture
  20. form2;
  21. spades1%
  22. hearts12
  23.     diamonds1E
  24. clubsd
  25. spade1O
  26. heart1s
  27. diamond1
  28. club1E
  29. picture1_Click
  30. Index:
  31. deck2
  32. Tracy
  33. Form_DragDrop
  34. Source
  35. Form_DragOver
  36. State
  37. Form_GotFocusD
  38. Form_KeyDown
  39. KeyCodef
  40. Shift
  41. Form_DblClick
  42. clubcard7
  43. diamondcard
  44.     heartcardq
  45.     spadecard
  46. endcase
  47. club2
  48. club3
  49. club4
  50. club5
  51. club6
  52. club7
  53. club8
  54. club9
  55. club10
  56. club11:
  57. club12G
  58. club13T
  59. diamond2a
  60. diamond3
  61. diamond4
  62. diamond5
  63. diamond6
  64. diamond7
  65. diamond8
  66. diamond9
  67.     diamond10
  68.     diamond11n
  69.     diamond12x
  70.     diamond13
  71. heart2
  72. heart3
  73. heart4
  74. heart5&
  75. heart60
  76. heart7
  77. heart8
  78. heart9
  79. heart10
  80. heart11
  81. heart12
  82. heart13P
  83. spade2[
  84. spade3
  85. spade4
  86. spade5
  87. spade6
  88. spade7
  89. spade8
  90. spade9
  91. spade10
  92. spade11
  93. spade12
  94. spade13
  95. numsuit
  96. Command1_Click
  97. jNext
  98. About_Click
  99. form3
  100. random number for suit
  101. random number for card
  102. give each card a unique value  
  103. checks each card against those
  104. already chosen to guard againstt
  105. picking the same one twice.  Ifs
  106. a duplicate number is found, the
  107.  'current value of "i" is repeated.
  108. In my opinion, a heavyhanded aproach. 
  109. clubcard
  110. Copies card chosen from Form2 to Form1 for display
  111. diamondcard
  112. Copies card chosen from Form2 to Form1 for display
  113. heartcard
  114. Copies card chosen from Form2 to Form1 for display
  115. spadecard
  116. Copies card chosen from Form2 to Form1 for display
  117. Command1_Click
  118. Calls the shuffling routine, probably should've 
  119. called it "shuffle".
  120. Deal 5 cards into Form1n
  121. Calls the corresponding Sub forl
  122. the suit of the card
  123.